answer "Sorry, can't use that name (check your list)." with "OK"
else
set the lockScreen to true
set the cursor to 4
put it into fileName
set the lockScreen to true
domenu "New Field"
get the number of card fields
set name of card field IT to filename
put bkgnd field "Text" into card field fileName
put number of lines in card field "List" into counter
add 1 to counter
put fileName into line counter of card field "List"
put ">>"&fileName&"<<" into bkgnd field "Title"
choose browse tool
hide card field fileName
end if
end mouseUp
</script>
</part>
<part>
<id>58</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>59</left>
<top>19</top>
<right>115</right>
<bottom>37</bottom>
</rect>
<style>rectangle</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Delete</name>
<script>on mouseUp
Ask "Which file to be deleted?"
set the cursor to 4
set lockScreen to true
put it into delFile
if it is empty then exit mouseup
else set the lockScreen to true
choose field tool
get location of card field delFile
show card field delFile
click at it
domenu "Clear Field"
put number of lines in card field "List" into Count
repeat with L= 1 to Count
if line L of card field "List" = delFile
then delete line L of card field "List"
end repeat
choose browse tool
end mouseUp
</script>
</part>
<part>
<id>76</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>156</left>
<top>120</top>
<right>356</right>
<bottom>205</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>Now is the Time</name>
<script></script>
</part>
<part>
<id>78</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>156</left>
<top>120</top>
<right>356</right>
<bottom>205</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>Time</name>
<script></script>
</part>
<part>
<id>82</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>156</left>
<top>120</top>
<right>356</right>
<bottom>205</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>Test</name>
<script></script>
</part>
<part>
<id>87</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>353</left>
<top>19</top>
<right>406</right>
<bottom>37</bottom>
</rect>
<style>rectangle</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Save</name>
<script>on mouseUp
ask "Save text to what file name?"
if it is empty then exit mouseUp
put it into fileName
put number of lines in card field "List" into Count
repeat with L= 1 to Count
repeat while line L of card field "List" = fileName
answer "Replace document with same name?" with "OK" or "Cancel"
set the cursor to 4
set the lockScreen to true
put bkgnd field "Text" into card field fileName
put fileName into bkgnd field "Title"
exit mouseUp
end repeat
end repeat
set the cursor to 4
set the lockScreen to true
domenu "New Field"
get the number of card fields
set name of card field IT to filename
put bkgnd field "Text" into card field fileName
put number of lines in card field "List" into counter
add 1 to counter
put fileName into line counter of card field "List"
put ">>"&fileName&"<<" into bkgnd field "Title"
hide card field fileName
choose browse tool
end mouseUp
</script>
</part>
<part>
<id>115</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>178</left>
<top>19</top>
<right>244</right>
<bottom>37</bottom>
</rect>
<style>rectangle</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Transfer</name>
<script>on mouseUp
set the lockScreen to true
get location of bkgnd field "Title"
click at it
type tab
domenu "Copy Text"
open Application
end mouseUp
</script>
</part>
<part>
<id>116</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>156</left>
<top>120</top>
<right>356</right>
<bottom>205</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>Intro</name>
<script></script>
</part>
<part>
<id>117</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>0</left>
<top>36</top>
<right>115</right>
<bottom>53</bottom>
</rect>
<style>rectangle</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>MacWrite</name>
<script>on mouseUp
set the lockScreen to true
get location of bkgnd field "Title"
click at it
type tab
domenu "Copy Text"
open "MacWrite"
end mouseUp
</script>
</part>
<part>
<id>118</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>114</left>
<top>36</top>
<right>244</right>
<bottom>53</bottom>
</rect>
<style>rectangle</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>MS Word</name>
<script>on mouseUp
set the lockScreen to true
get location of bkgnd field "Title"
click at it
type tab
domenu "Copy Text"
open "Microsoft Word"
end mouseUp
</script>
</part>
<part>
<id>119</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>243</left>
<top>36</top>
<right>354</right>
<bottom>53</bottom>
</rect>
<style>rectangle</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name><<blank>></name>
<script>on mouseUp
--set the lockScreen to true
--get location of bkgnd field "Title"
--click at it
--type tab
--domenu "Copy Text"
--open " "
end mouseUp
</script>
</part>
<part>
<id>120</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>353</left>
<top>36</top>
<right>436</right>
<bottom>53</bottom>
</rect>
<style>rectangle</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name><<blank>></name>
<script>on mouseUp
--set the lockScreen to true
--get location of bkgnd field "Title"
--click at it
--type tab
--domenu "Copy Text"
--open " "
end mouseUp
</script>
</part>
<part>
<id>121</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>435</left>
<top>36</top>
<right>512</right>
<bottom>53</bottom>
</rect>
<style>rectangle</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name><<blank>></name>
<script>on mouseUp
--set the lockScreen to true
--get location of bkgnd field "Title"
--click at it
--type tab
--domenu "Copy Text"
--open "MacWrite"
end mouseUp
</script>
</part>
<part>
<id>122</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <true /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>156</left>
<top>120</top>
<right>356</right>
<bottom>205</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>Instructions</name>
<script></script>
</part>
<content>
<layer>card</layer>
<id>12</id>
<text> </text>
</content>
<content>
<layer>background</layer>
<id>23</id>
<text> </text>
</content>
<content>
<layer>card</layer>
<id>76</id>
<text>Now is the time for all good men to come to the aid of their party.
The quick brown fox jumped over the sleepy lazy dog.</text>
</content>
<content>
<layer>card</layer>
<id>82</id>
<text>Now is the time for all good men to come to the aid of their party.
</text>
</content>
<content>
<layer>card</layer>
<id>78</id>
<text>
</text>
</content>
<content>
<layer>card</layer>
<id>116</id>
<text>INTRODUCTION:
The purpose of creating this text writer stack was to create a writing environment that more closely resembled word processing and at the same time did not clutter up my desktop with text icons which other text editor
type of stacks, which I have tried, do.
What this stack does is to create hidden fields where your documents are stored after you use Save or Save As until you open them up again. Then when you are ready to print out your work, you can either use the standard Report printing as provided in HyperCard, or you can paste the contents of your work directly into any other application that you may like to use.
One nice feature of this stack is that there is List which you can call up at any time which lists all the documents you have created, and which by merely dragging across the name of the document and choosing Open, will open it up on the screen.
After you have finished reading this, delete this introduction by choosing the Delete button, then choose either "Open" or "List" and read the Instructions file.
I have not protected this stack and purposely left room for you to add additional buttons for your own experimentation.
Fred Di Marco
Compuserve 72667,2376
</text>
</content>
<content>
<layer>card</layer>
<id>22</id>
<text>Intro
Instructions</text>
</content>
<content>
<layer>card</layer>
<id>122</id>
<text>"Open"
This button opens up the "List" field which lists all documents created.
If you don't want to open any one of them just click on "Hide List". To open a document listed just select it by dragging across its name and choose open again, and it will appear on the screen.
"Delete"
This button will not only delete the hidden field where the document is stored but also the name off the "List". It is not case sensitive.
"List"
Lists all documents created. Click on "Hide List" to make it go away.
"Transfer", "MacWrite", "MS Word"
These buttons create a copy of any open document and then either:
- Transfers you to an application or document of your choosing,
- Transfers you to MacWrite or
- Transfers you to MS Word
Then when the application opens merely choose Paste from the menu or Command-V and your document from HyperCard is pasted into the application for enhancements or whatever.
"Report"
Does the standard Report Printing as provided in HyperCard
"New"
Clears the Title and Text areas of the screen
"Save"
Saves document and checks the List to see if you have used the chosen name before. Here is where I encountered a bug which I have not been able to solve. If for example you saved a document as "Frederick" and attempted to save either the same one or a different one as "Fred", the various scripts I have tried cannot seem to differentiate between them when the search of the List names occur. If someone can come up with the right script, I'd like to know.
"Save As"
The usual Save As feature, but with the same bug as the Save feature when it comes to checking names.
"Home"
I don't think I'm in Kansas anymore!
"<<blank>>"
These have the same script as Transfer but disabled.
Of course I would appreciate any feedback or comments and hope I've contributed something (even if its just a little) to HyperCard creativity.
Fred Di Marco
Compuserve 72667,2376
</text>
</content>
<content>
<layer>background</layer>
<id>27</id>
<text>>>Intro<<</text>
</content>
<content>
<layer>background</layer>
<id>33</id>
<text>INTRODUCTION:
The purpose of creating this text writer stack was to create a writing environment that more closely resembled word processing and at the same time did not clutter up my desktop with text icons which other text editor
type of stacks, which I have tried, do.
What this stack does is to create hidden fields where your documents are stored after you use Save or Save As until you open them up again. Then when you are ready to print out your work, you can either use the standard Report printing as provided in HyperCard, or you can paste the contents of your work directly into any other application that you may like to use.
One nice feature of this stack is that there is List which you can call up at any time which lists all the documents you have created, and which by merely dragging across the name of the document and choosing Open, will open it up on the screen.
After you have finished reading this, delete this introduction by choosing the Delete button, then choose either "Open" or "List" and read the Instructions file.
I have not protected this stack and purposely left room for you to add additional buttons for your own experimentation.
